home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / stk-3.002 / stk-3 / STk-3.1 / Demos / Widget / Wdialog2.stklos < prev    next >
Encoding:
Text File  |  1995-09-16  |  713 b   |  19 lines
  1. ;;;;
  2. ;;;; STk adaptation of the Tk widget demo.
  3. ;;;;
  4. ;;;;  This demonstration script creates a dialog box with a global grab.
  5. ;;;;
  6.  
  7.  
  8. (define (demo-dialog2)
  9.   (STk:make-dialog :title "Dialog with global grab" 
  10.            :text  "This dialog box uses a global grab, so it prevents you from interacting with anything on your display until you invoke one of the buttons below.  Global grabs are almost always a bad idea; don't use them unless you're truly desperate."
  11.            :bitmap "info"
  12.            :default 0
  13.            :grab    'global
  14.            :buttons 
  15.               `(("OK"       ,(lambda () (display "You pressed OK\n")))
  16.             ("Cancel"   ,(lambda () (display "You pressed Cancel\n")))
  17.             ("See Code" ,(lambda () (show-code "dialog2"))))))
  18.  
  19.